home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / PROCED4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  565 b   |  25 lines
  1. PROGRAM scope_of_variables;
  2.  
  3. VAR count : INTEGER;
  4.     index : INTEGER;
  5.  
  6. PROCEDURE print_some_data;
  7.  
  8. VAR count : INTEGER;
  9.  
  10. BEGIN
  11.   count := 7;
  12.   WRITELN('In print_some_data count =',count:5,'  index =',index:5);
  13. END; (* of print_some_data PROCEDURE *)
  14.  
  15. BEGIN   (* Main program *)
  16. FOR index := 1 TO 3 DO
  17. BEGIN
  18.   count := index;
  19.   WRITELN('In main program count    =',count:5,'  index =',index:5);
  20.   print_some_data;
  21.   WRITELN('In main program count    =',count:5,'  index =',index:5);
  22.   WRITELN;
  23. END; (* count loop *)
  24. END. (* main program *)
  25.